home *** CD-ROM | disk | FTP | other *** search
/ Yellows - Privacy (Deluxe) / Akira Gomi Photographs - Yellows: Privacy (Deluxe) - Disc 1.iso / mainmenu.dxr / 00017.ls < prev    next >
Encoding:
Text File  |  1996-07-06  |  2.5 KB  |  88 lines
  1. global g_mouseh, g_mousev, fadetime, saver, movielist, keydetect, mode, captionmode, movieName, event
  2.  
  3. on showmenu spnum, castname
  4.   puppetSprite(47, 1)
  5.   set the type of sprite 47 to 1
  6.   set the ink of sprite 47 to 8
  7.   set the visible of sprite 47 to 1
  8.   set the locH of sprite 47 to the right of sprite spnum + (the width of cast castname / 2)
  9.   if the mouseV > 320 then
  10.     set the castNum of sprite 47 to the number of member (castname & ",C")
  11.   else
  12.     set the castNum of sprite 47 to the number of member castname
  13.   end if
  14.   if the mouseV > (480 - the height of cast the castNum of sprite 47) then
  15.     set the locV of sprite 47 to the mouseV - the height of cast the castNum of sprite 47
  16.   else
  17.     set the locV of sprite 47 to the mouseV
  18.   end if
  19.   set the foreColor of sprite 47 to 255
  20.   set the backColor of sprite 47 to 0
  21.   if rollOver(spnum) then
  22.     if (the mouseH <> g_mouseh) or (the mouseV <> g_mousev) then
  23.       set g_mouseh to the mouseH
  24.       set g_mousev to the mouseV
  25.       set fadetime to the timer
  26.     end if
  27.     if the mouseDown then
  28.       dontPassEvent()
  29.       if item 2 of the name of cast the castNum of sprite 47 = "C" then
  30.         set the visible of sprite 47 to 0
  31.         updateStage()
  32.         go(item 1 of the name of cast the castNum of sprite 47 & "C")
  33.         dontPassEvent()
  34.         abort()
  35.       else
  36.         set the visible of sprite 47 to 0
  37.         updateStage()
  38.         go(the frame)
  39.         go(item 1 of the name of cast the castNum of sprite 47)
  40.         abort()
  41.       end if
  42.     end if
  43.     if the mouseV > 320 then
  44.       set the castNum of sprite 47 to the number of member (castname & ",C")
  45.     else
  46.       set the castNum of sprite 47 to the number of member castname
  47.     end if
  48.     if the mouseV > (480 - the height of cast the castNum of sprite 47) then
  49.       set the locV of sprite 47 to 480 - the height of cast the castNum of sprite 47
  50.     else
  51.       set the locV of sprite 47 to the mouseV
  52.     end if
  53.     updateStage()
  54.   else
  55.     set the visible of sprite 47 to 0
  56.     updateStage()
  57.   end if
  58.   go(the frame)
  59. end
  60.  
  61. on initsom
  62.   set movielist to []
  63.   repeat with i = 1 to 25
  64.     addAt(movielist, i)
  65.   end repeat
  66. end
  67.  
  68. on startsom
  69.   set movieName to getAt(movielist, random(count(movielist)))
  70.   deleteAt(movielist, getPos(movielist, movieName))
  71.   go(1, the pathName & "SOM:" & returndigit(movieName) & ",M")
  72. end
  73.  
  74. on returndigit number
  75.   set a to number / 10
  76.   set b to number - (10 * a)
  77.   return a & b
  78. end
  79.  
  80. on startMovie
  81.   global g_image
  82.   if objectp(g_image) then
  83.     g_image(mdispose)
  84.   end if
  85.   set fadetime to the timer
  86.   set the keyDownScript to "checkkey"
  87. end
  88.